home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / mexlas.zip / TXGRAPH.PRG < prev    next >
Text File  |  1991-09-01  |  2KB  |  58 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXGRAPH.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit(_print_port)
  12. txreset()
  13. txorient("L")                 && Set orientation to Landscape
  14. txpagesize("letter")
  15. txsetlpi(6)
  16.  
  17. _company   = "Texas Associated Software"
  18. _units     = "Units Shipped in Thousands"
  19. _1stqtr    = 19
  20. _2ndqtr    = 23
  21. _3rdqtr    = 15
  22. _4thqtr    = 30
  23.  
  24. txcolbox(01, 01, 105, 45, 1,  0, 5)
  25. txcolbox(43, 01, 105, 03, 1,  5, 5)
  26.  
  27. txcolprint(43, 08, .t., "1st Qtr 1990")
  28. txcolprint(43, 33, .t., "2nd Qtr 1990")
  29. txcolprint(43, 58, .t., "3rd Qtr 1990")
  30. txcolprint(43, 83, .t., "4th Qtr 1990")
  31. txcolprint(45, 41, .t., _units)
  32. txcolprint(02, 41, .t., _company)
  33.  
  34. txcolprint(33, 01, .t., "10")
  35. txcolprint(23, 01, .t., "20")
  36. txcolprint(13, 01, .t., "30")
  37. txcolprint(03, 01, .t., "40")
  38.  
  39. for i = 2100 to 0 step -496
  40.    txdothline( 01, i, 3150, 1)  && draw horizontal thousands lines
  41. Next
  42.  
  43. _col = 43 - _1stqtr
  44. txpatternbar(_col, 10, 10, _1stqtr, 1, .t.)
  45.  
  46. _col = 43 - _2ndqtr
  47. txpatternbar(_col, 35, 10, _2ndqtr, 3, .t.)
  48.  
  49. _col = 43 - _3rdqtr
  50. txpatternbar(_col, 60, 10, _3rdqtr, 2, .t.)
  51.  
  52. _col = 43 - _4thqtr
  53. txpatternbar(_col, 85, 10, _4thqtr, 4, .t.)
  54.  
  55. returncode = txclear()
  56.  
  57. *: EOF: TXGRAPH.PRG
  58.